home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / begincpp.zip / #10.C < prev    next >
C/C++ Source or Header  |  1990-08-05  |  3KB  |  96 lines
  1. #line 1 "#10.cxx"
  2. void *_new(long);
  3. void _delete(void*);
  4. void *_vec_new(void*,int,int,void*(*)(void*));
  5. void _vec_delete(void*,int,int,void(*)(void*,int),...);
  6. void exit(int);
  7. static void cdecl _STI();
  8. static void cdecl _STD();
  9.  
  10.  
  11.  
  12.  
  13. struct Wsp { char _dummy; } ;
  14. extern char *oct (long , int );
  15. extern char *dec (long , int );
  16. extern char *hex (long , int );
  17.  
  18. extern char *chr (int , int );
  19. extern char *str (char *, int );
  20. extern char *form (char *, ... );
  21.  
  22.  
  23. struct ostream { 
  24.     void *_ostream_bp ;
  25.     short _ostream_state ;
  26. } ;
  27. struct ostream *_ostream__lshiftNFNPC__ (struct ostream* , char *);
  28. struct ostream *_ostream__lshiftNFUL__ (struct ostream* , unsigned long );
  29. struct ostream *_ostream__lshiftNFL__ (struct ostream* , long );
  30. struct ostream *_ostream__lshiftNFD__ (struct ostream* , double );
  31. struct ostream *_ostream__lshiftNFNRCWsp___ (struct ostream* , struct Wsp *);
  32. struct ostream *_ostream_put (struct ostream* , char );
  33.  
  34. struct istream { 
  35.     void *_istream_bp ;
  36.     struct ostream *_istream_tied_to ;
  37.     char _istream_skipws ;
  38.     short _istream_state ;
  39. } ;
  40. struct istream *_istream__rshiftNFNPC__ (struct istream* , char *);
  41. struct istream *_istream__rshiftNFNRC__ (struct istream* , char *);
  42. struct istream *_istream__rshiftNFNRS__ (struct istream* , short *);
  43. struct istream *_istream__rshiftNFNRI__ (struct istream* , int *);
  44. struct istream *_istream__rshiftNFNRL__ (struct istream* , long *);
  45. struct istream *_istream__rshiftNFNRF__ (struct istream* , float *);
  46. struct istream *_istream__rshiftNFNRD__ (struct istream* , double *);
  47. struct istream *_istream__rshiftNFNRCWsp___ (struct istream* , struct Wsp *);
  48. struct istream *_istream_getNFNPC_I_I__ (struct istream* , char *, int , char );
  49. struct istream *_istream_putback (struct istream* , char );
  50.  
  51. extern void eatwhite (struct istream *);
  52. extern struct istream cin ;
  53. extern struct ostream cout ;
  54. extern struct ostream cerr ;
  55.  
  56. extern struct Wsp WS ;
  57. extern unsigned char _ctype [];
  58.  
  59.  
  60. int main ()
  61. { 
  62.     { 
  63.         int _au1_word_cnt ;
  64.         extern void found_next_word (void );
  65.         register struct ostream *_au0__Xthis__lshiftNFI___ostream = 0 ;
  66.         
  67.         _au1_word_cnt = -1;
  68.         while (( ((& cin )-> _istream_state == 0)) ){ 
  69.             _au1_word_cnt ++ ;
  70.             found_next_word ( ) ;
  71.         } 
  72.  
  73.         _ostream__lshiftNFNPC__ ( (struct ostream *)( 
  74.             (_au0__Xthis__lshiftNFI___ostream = (struct ostream *)
  75.             _ostream__lshiftNFNPC__ ( & cout , (char *)"word count is ") ), 
  76.             ( _ostream__lshiftNFL__ ( _au0__Xthis__lshiftNFI___ostream , 
  77.             ((long )_au1_word_cnt )) ) ) , (char *)"\n") ;
  78.     }  
  79.     exit ( 0 );
  80. }
  81.  
  82. void found_next_word ()
  83. { 
  84.     char _au1_c ;
  85.     int _au2__Xos_getNFNRC___istream ;
  86.  
  87.     _istream__rshiftNFNRC__ ( & cin , (char *)(& _au1_c )) ;
  88.  
  89.     while (! (((_ctype + 1 )[_au1_c ])& 0X8 ))
  90.         ( (_au2__Xos_getNFNRC___istream = (& cin )-> _istream_skipws ), 
  91.         ( ((& cin )-> _istream_skipws = 0 ), 
  92.         ( _istream__rshiftNFNRC__ ( (& cin ), ((char *)(& _au1_c ))) , 
  93.         ( ((& cin )-> _istream_skipws = _au2__Xos_getNFNRC___istream ), 
  94.         (((struct istream *)(& cin )))) ) ) ) ;
  95. } 
  96.